Código fuente de 'Ejemplo de checkbox.asp'

<html>

<head>
<title>Ejemplo de checkbox - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>

<body style="font-family: Arial; font-size: 11pt">

<center><b><font face="Arial" size="3">Ejemplo de checkbox</font></b></center><br>

    <%
    Dim lBlnParametro
    lBlnParametro = Request.QueryString("Parametro") = "True"
    %>
    <FORM>
    	<INPUT type="checkbox" name="Parametro" value="True"<%=Checked(lBlnParametro)%>>
    	<%=CheckAction(lBlnParametro)%> si piensas que las manzanas saben bien.<BR>
    	<BR>
    	<INPUT type="submit" value="Ejecutar">
    </FORM>
    <%
    function CheckAction(ByRef pBlnIsChecked)
    	if pBlnIsChecked Then
    		CheckAction = "Deja esta casilla sin seleccionar "
    	Else
    		CheckAction = "Selecciona esta casilla "
    	End if
    End function
    function Checked(ByRef pBlnIsChecked)
    	if pBlnIsChecked Then Checked = " seleccionado "
    End function
    %>